home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filecopy / frmfilec.frm (.txt) < prev    next >
Visual Basic Form  |  1998-07-31  |  4KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFileCopy 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "File Copy Demo - Windows / DOS"
  5.    ClientHeight    =   2280
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5790
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2280
  13.    ScaleWidth      =   5790
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdQuit 
  16.       Caption         =   "&Quit"
  17.       Height          =   435
  18.       Left            =   4380
  19.       TabIndex        =   8
  20.       Top             =   1620
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdCopy 
  24.       Caption         =   "&Copy"
  25.       Height          =   435
  26.       Left            =   3180
  27.       TabIndex        =   7
  28.       Top             =   1620
  29.       Width           =   1215
  30.    End
  31.    Begin VB.Frame Frame1 
  32.       Caption         =   "Copy using:"
  33.       BeginProperty Font 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   700
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   735
  43.       Left            =   180
  44.       TabIndex        =   4
  45.       Top             =   1320
  46.       Width           =   2775
  47.       Begin VB.OptionButton optWin 
  48.          Caption         =   "Windows"
  49.          Height          =   255
  50.          Left            =   1380
  51.          TabIndex        =   6
  52.          Top             =   360
  53.          Width           =   1155
  54.       End
  55.       Begin VB.OptionButton optDos 
  56.          Caption         =   "DOS"
  57.          Height          =   255
  58.          Left            =   300
  59.          TabIndex        =   5
  60.          Top             =   360
  61.          Width           =   915
  62.       End
  63.    End
  64.    Begin VB.TextBox txtDestination 
  65.       Height          =   300
  66.       Left            =   1500
  67.       TabIndex        =   3
  68.       Text            =   "Enter Destination File Path"
  69.       Top             =   825
  70.       Width           =   4095
  71.    End
  72.    Begin VB.TextBox txtSource 
  73.       Height          =   300
  74.       Left            =   1500
  75.       TabIndex        =   2
  76.       Text            =   "Enter Source File Path"
  77.       Top             =   285
  78.       Width           =   4095
  79.    End
  80.    Begin VB.Label lblDestination 
  81.       Caption         =   "Destination:"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   8.25
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   375
  92.       Left            =   240
  93.       TabIndex        =   1
  94.       Top             =   855
  95.       Width           =   2175
  96.    End
  97.    Begin VB.Label lblSource 
  98.       Caption         =   "Source:"
  99.       BeginProperty Font 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   375
  109.       Left            =   240
  110.       TabIndex        =   0
  111.       Top             =   315
  112.       Width           =   2175
  113.    End
  114. Attribute VB_Name = "frmFileCopy"
  115. Attribute VB_GlobalNameSpace = False
  116. Attribute VB_Creatable = False
  117. Attribute VB_PredeclaredId = True
  118. Attribute VB_Exposed = False
  119. Option Explicit
  120. Private Sub cmdCopy_Click()
  121.   If optWin.Value = True Then
  122.      WinFileCopy txtSource.Text, txtDestination.Text
  123.   Else
  124.      DosFileCopy txtSource.Text, txtDestination.Text
  125.   End If
  126. End Sub
  127. Private Sub cmdQuit_Click()
  128.    Unload Me
  129. End Sub
  130. Private Sub Form_Load()
  131.    optWin.Value = True
  132.    optDos.Value = False
  133. End Sub
  134. Private Sub Form_Unload(Cancel As Integer)
  135.     Set frmFileCopy.Icon = Nothing
  136.     Set frmFileCopy = Nothing
  137. End Sub
  138.